'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub NewWinTitle
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:NewWinTitle:1:8
Sub NewWinTitle
	'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
	Dim activeWin As Integer, winTitle As String
	activeWin% = GetActiveWindow()
	winTitle$ = "Approach"
	SetWindowTextA activeWin%, winTitle$
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	GetWebTemplate(Source.name)
End Sub